home *** CD-ROM | disk | FTP | other *** search
/ stazsoftware.com / www.stazsoftware.com.tar / www.stazsoftware.com / futurebasic / sample-code / Add30Days.sit / Add 30 Days next >
Text File  |  2003-09-05  |  591b  |  31 lines
  1.  
  2. '~'A
  3. '                    CALL Req'd : Off
  4. '~'B
  5.  
  6. /*
  7.      it's a simple question: how do i add 30 days to a date?
  8.  
  9.      this example adds 30 days to today's date.
  10. */
  11.  
  12. dim lDate as DateTimeRec// a record that is broken into year, month, day, etc
  13. dim sec as long// a long int
  14.  
  15. GetTime(lDate)// get today
  16. lDate.day += 30// add 30 days
  17. DateToSeconds(lDate , sec)// change it into seconds
  18. SecondsToDate(sec , lDate)// change it back into a record
  19.  
  20. window 1// display the results
  21. print "30 days from today is:"
  22. print lDate.month"/";
  23. print lDate.day"/";
  24. print lDate.year
  25.  
  26.  
  27. DO
  28. HANDLEEVENTS
  29. UNTIL 0
  30.  
  31.